home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.2r / background_2202.txt < prev    next >
Text File  |  1989-02-26  |  8KB  |  336 lines
  1. -- background: 2202 from stack: in.2r
  2. -- bmap block id: 12879
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Functions
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9.   set scroll of field description to 0
  10. end opencard
  11.  
  12.  
  13.  
  14. -- part 2 (field)
  15. -- low flags: 00
  16. -- high flags: 0007
  17. -- rect: left=56 top=69 right=299 bottom=491
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 3
  22. -- text size: 9
  23. -- style flags: 0
  24. -- line height: 12
  25. -- part name: description
  26.  
  27.  
  28. -- part 3 (field)
  29. -- low flags: 01
  30. -- high flags: 0000
  31. -- rect: left=54 top=23 right=57 bottom=337
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 2
  36. -- text size: 24
  37. -- style flags: 0
  38. -- line height: 32
  39. -- part name: Name
  40.  
  41.  
  42. -- part 6 (button)
  43. -- low flags: 00
  44. -- high flags: 2000
  45. -- rect: left=456 top=301 right=329 bottom=493
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 11645 / 11645
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Return
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   if the optionkey is down then pass mouseup
  57.   visual effect iris close
  58.   go first card
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 8 (button)
  64. -- low flags: 00
  65. -- high flags: 2000
  66. -- rect: left=280 top=306 right=331 bottom=307
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 1013 / 1013
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Next
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   if the optionkey is down then pass mouseup
  78.   visual effect wipe left
  79.   go to next card
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 9 (button)
  85. -- low flags: 00
  86. -- high flags: 2000
  87. -- rect: left=228 top=306 right=331 bottom=255
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 1014 / 1014
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Prev
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   if the optionkey is down then pass mouseup
  99.   visual effect wipe right
  100.   go to previous card
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 10 (field)
  106. -- low flags: 01
  107. -- high flags: 0000
  108. -- rect: left=255 top=311 right=327 bottom=282
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 3
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: PageNumber
  117.  
  118.  
  119. -- part 11 (button)
  120. -- low flags: 00
  121. -- high flags: 2004
  122. -- rect: left=2 top=74 right=117 bottom=49
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 14767 / 14767
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: About...
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   if the optionkey is down then pass mouseup
  134.   visual iris open to gray
  135.   visual iris close to black
  136.   visual iris open to gray
  137.   visual iris close
  138.   go background information
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 12 (button)
  144. -- low flags: 00
  145. -- high flags: 2004
  146. -- rect: left=2 top=119 right=162 bottom=49
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 29114 / 29114
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Back
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   if the optionkey is down then pass mouseup
  158.   visual barn door close to black
  159.   visual barn door open
  160.   pop card
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 13 (button)
  166. -- low flags: 00
  167. -- high flags: 2004
  168. -- rect: left=2 top=164 right=207 bottom=49
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 1011 / 1011
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Home
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   if the optionkey is down then pass mouseup
  180.   go to first card of home
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 14 (button)
  186. -- low flags: 00
  187. -- high flags: 2004
  188. -- rect: left=2 top=209 right=252 bottom=49
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 1000 / 1000
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: Open Stack
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   if the optionkey is down then pass mouseup
  200.   domenu "open stack..."
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 15 (button)
  206. -- low flags: 00
  207. -- high flags: 2004
  208. -- rect: left=2 top=254 right=297 bottom=49
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 17343 / 17343
  211. -- text alignment: 1
  212. -- font id: 0
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: Launch Application
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   if the optionkey is down then pass mouseup
  220.   visual venetian blinds to gray
  221.   visual venetian blinds to black
  222.   visual venetian blinds to gray
  223.   visual venetian blinds
  224.  
  225.   go to background "Mini Hyperstation"
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 16 (button)
  231. -- low flags: 00
  232. -- high flags: 2004
  233. -- rect: left=2 top=299 right=342 bottom=49
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 21786 / 21786
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Menus On
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   if the optionkey is down then pass mouseup
  245.  
  246.   if menubar("¬©1988SDrazga") then hide menubar else show menubar
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 17 (button)
  252. -- low flags: 00
  253. -- high flags: A003
  254. -- rect: left=80 top=305 right=328 bottom=203
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: Install Function
  263. ----- HyperTalk script -----
  264. on mouseup
  265.   if the optionkey is down then pass mouseup
  266.  
  267.   put "Please select the target stack for installation"
  268.   put filename("STAK") into targetStack
  269.   if targetStack is empty then
  270.     hide message
  271.     play oops
  272.     exit mouseup
  273.   end if
  274.  
  275.   put "Updating stack.  Please wait..."
  276.   set cursor to 4
  277.   put the script of stack targetStack into originalScript
  278.   put field "name" into FunctionName
  279.  
  280.   if FunctionName is in originalScript then
  281.     play oops
  282.     answer "This Function is aleady installed in this script"
  283.     hide message
  284.     exit mouseup
  285.   end if
  286.  
  287.   put the script of this card into functionScript
  288.   put originalScript into newScript
  289.   put return&return&"--Beginning of "&FunctionName after newScript
  290.   put functionScript after newScript
  291.   put "--End of "&FunctionName after newScript
  292.   set the script of stack targetstack to newScript
  293.   hide message
  294. end mouseup
  295.  
  296.  
  297.  
  298. -- part 18 (button)
  299. -- low flags: 00
  300. -- high flags: A003
  301. -- rect: left=322 top=305 right=328 bottom=445
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 0 / 0
  304. -- text alignment: 1
  305. -- font id: 0
  306. -- text size: 12
  307. -- style flags: 0
  308. -- line height: 16
  309. -- part name: Remove Function
  310. ----- HyperTalk script -----
  311. on mouseup
  312.   if the optionkey is down then pass mouseup
  313.   put "Please select the stack from which to remove this function"
  314.   put filename("STAK") into targetStack
  315.   if targetStack is empty then
  316.     play oops
  317.     hide message
  318.     exit mouseup
  319.   end if
  320.   set cursor to 4
  321.   put the script of stack targetStack into originalScript
  322.   put field "name" into FunctionName
  323.   if functionName is not in originalScript then
  324.     play oops
  325.     answer "This function is not installed in this stack!"
  326.     hide message
  327.     exit mouseup
  328.   end if
  329.   put "Updating stack.  Please wait..."
  330.   put offset("--Beginning of "&FunctionName,originalScript)-2 into beginDelete
  331.   put offset("--End of "&FunctionName,originalScript) +length("--End of "&FunctionName) into endDelete
  332.   delete char beginDelete to endDelete of originalScript
  333.   set the script of stack targetStack to originalScript
  334.   hide message
  335. end mouseup
  336.